home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Games / Starter / JST / Developer / sources / OSEmu / freeanim.s < prev    next >
Encoding:
Text File  |  1999-12-03  |  699 b   |  22 lines
  1. * $Id: freeanim.s 1.1 1999/02/03 04:09:05 jotd Exp $
  2. **************************************************************************
  3. *   FREEANIM-LIBRARY                                                     *
  4. **************************************************************************
  5. **************************************************************************
  6. *   INITIALIZATION                                                       *
  7. **************************************************************************
  8.  
  9. FRANINIT    move.l    _franbase,d0
  10.         beq    .init
  11.         rts
  12.  
  13. .init        move.l    #10,d0        ; at random
  14.         move.l    #2,d1        ; at random
  15.         lea    _franname,a0
  16.         bsr    _InitLibrary
  17.         move.l    d0,a0
  18.         move.l    d0,_franbase
  19.         
  20.         rts
  21.  
  22.